home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / misc / ibidg12.zip / IBIDIAG.RUN < prev    next >
Text File  |  1995-01-21  |  3KB  |  92 lines
  1.  é╣vabd001«sx01,«is001»»«lb%                       get ibid directory
  2.  »«sv60,-255»«lb%
  3.  »«if«is60»ε«is00»<0»«sv60,»«ei»«lb%    if parameter includes
  4.                                -255, pass it to IBIDIAG.EXE
  5. » é╣nw üdoi IBIDIAG «pv01» «pv60» ü     üwait ü    «lb%  run external program 
  6.  
  7. »«sv60,N»«sx00,@upr(«is00»)»«lb%
  8. »«if«is60»ε«is00»=>0»«glNoDBL»«ei»«lb%  if N parameter, no doubles                                                      check
  9. » é╣X é╣ε1 üca «pv01»IBIDIAG.DBL ü     é╣ε0«lb%     get doubles file
  10. »«if«er»»«glNoDBL»«ei»«lb%                        
  11. »«sv10,`@`&»«lb%                                   sort doubles file
  12. » üci / 0A/«pv10»/ ü    «lb%                           
  13. » üci / AEPG AF«pv10»/ AEPG AF 0A/ ü    «lb%
  14. » üst ü    «lb%
  15. » é╣ε1 üernv «pv01»IBIDIAG.SOR ü     é╣ε0«lb%
  16. » üsort «pv01»IBIDIAG.DBL,«pv01»IBIDIAG.SOR ü    «lb%
  17. » üca «pv01»IBIDIAG.SOR ü    «lb%
  18. » üci /«pv10»/ 0A/ ü    «lb%
  19.  
  20.  
  21. »«sv20,«MDBO» !!! «MDNM»»«lb%                     constants and counters
  22. »«sx50,0»«lb%                                     for duplicate comparison
  23. »«sx51,0»«lb%
  24.  
  25.                         Start comparison
  26.  
  27. » Ç±«sv02,»«sv32,»«lb% initialize second item variables
  28. »«sv38,
  29. LL:»«sv39,
  30. »«lb%   LL: field start and field end
  31. »«lb%
  32.  
  33. »«lbG03»«prcomparing..»«lb%-------get number as 03, rest as 33-------------
  34.  
  35. » Ço«sv03» ü= Ç[«lb%
  36. »«sx10,@size(«is03»)»«if«pv10»<4»«lb%
  37.       »«glEnd»«ei»«lb%
  38. » Çk ü% Çk«sv33» ü=«lb%
  39.  
  40. »«if«is03»==«is02»»«sv70,3»«glComp»«ei»«lb%
  41.  
  42. »«lbG02»«lb%----------------get number as 02, check eof, rest as 32 --------
  43.  
  44.  » Ço«sv02» ü= Ç[«lb%
  45. »«sx10,@size(«is02»)»«if«pv10»<4»«lb%
  46.       »«glEnd»«ei»«lb%
  47. » Çk ü% Çk«sv32» ü=«lb%
  48.  
  49. »«if«is03»==«is02»»«sv70,2»«glComp»«ei»«lb%  same R#: -> compare contents
  50.  »«glG03»«lb%
  51.  
  52.  
  53. »«lbComp»«lb----------comparing recs with similar #---------------- »«lb%
  54. »«prcomparing...»«lb%     comparing lines
  55. »«sx51,«pv51»+1»«lb%             comparison count
  56. »«sv62,»«sv68,»«xs32,38,66,67,68»«xs68,39,62,67,69»«lb%  parse 32->62
  57. »«sv63,»«sv68,»«xs33,38,66,67,68»«xs68,39,63,67,69»«lb%  parse 33->63
  58. »«if@not(«is63»==«is62»)»«lb%                if lines different-> WARN
  59.  ::» ü' ü'«gt20» ü%«gt20» ü%«sx50,«pv50»+1»«ei»«lb%
  60. »«if«pv70»==2»«sv33,»«sv03,»«glG03»«ei»«lb%
  61. »«if«pv70»==3»«sv32,»«sv02,»«glG02»«ei» üerror é╣ε0 é╣O«ex1»
  62.  
  63. «lbEnd» ü= Ç} ü¡ Ç±«lb%
  64. »«LD=» Duplicate check «LD=»
  65.  
  66. «IP»First substantive lines of repeated record numbers were compared to detect cases where different items occupy similar record numbers:
  67.  
  68. «if«pv50»>0»Of the «pv51» comparisons, «pv50» were suspect. Check entries marked '«MDBO»!!!«MDNM»'«glRep»«ei»«lb%
  69. »No suspect entries. None of the «pv51» comparisons revealed differences.«lb%
  70.  
  71. »«lbRep»
  72.  
  73. «LD-» List of duplicate entries «LD-»
  74.  üst ü    «lb%  store dupl file
  75.  
  76. »«lb%
  77. » üca «pv01»IBIDIAG.REP ü     üsea  Check ü     ü#
  78.     Comparing duplicates is ON ÇM üme «pv01»IBIDIAG.SOR ü     Ç± é╣sa«lb%
  79. » é╣ε1 üernv «pv01»IBIDIAG.SOR ü     üernv «pv01»IBIDIAG.DBL ü     é╣ε0«lb%
  80. » ü ü» é╣O«prDONE»«ex1»
  81.  
  82. «lbNoDBL» üca «pv01»IBIDIAG.REP ü    «lb%
  83. »«lb%
  84. »«lb%
  85. » Ç± üsea  Check ü     ü#
  86.     Comparing duplicates is «lb%
  87. »«if«is60»ε«is00»=>0»OFF ÇM ü¡«LD=» Duplicate check «LD=»«IP»
  88.  
  89. Comparison of duplicates was skipped. If there were any, they were written in «pv01»IBIDIAG.DBL. Ç±«ei»«lb%
  90. »ON [but no duplicates found]«lb%
  91. » ü ü» é╣ε0 é╣O«prDONE»«ex1»
  92.